home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-08-23 | 11.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';-----------------------------------------------------------'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.; |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000050| 20 42 20 55 20 54 20 54 | 20 4f 20 4e 20 20 20 20 | B U T T| O N |
|00000060| 42 20 41 20 52 00 3b 20 | 20 20 20 20 20 20 20 20 |B A R.; | |
|00000070| 20 42 20 59 20 20 20 20 | 20 48 20 41 20 4c 20 45 | B Y | H A L E|
|00000080| 20 46 20 20 20 4f 20 46 | 20 20 20 53 20 55 20 4e | F O F| S U N|
|00000090| 20 20 51 20 55 20 45 20 | 45 20 4e 00 3b 00 3b 20 | Q U E |E N.;.; |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000b0| 20 20 49 6e 73 70 69 72 | 65 64 20 69 6e 20 53 74 | Inspir|ed in St|
|000000c0| 61 72 74 42 61 72 00 00 | 80 c3 00 00 80 13 20 42 |artBar..|...... B|
|000000d0| 75 74 74 6f 6e 42 61 72 | 2d 63 6f 6e 73 74 2d 64 |uttonBar|-const-d|
|000000e0| 69 6d 73 2e 62 62 32 00 | 80 13 20 42 75 74 74 6f |ims.bb2.|.. Butto|
|000000f0| 6e 42 61 72 2d 61 6c 6c | 70 75 72 70 6f 73 65 2e |nBar-all|purpose.|
|00000100| 62 62 32 00 00 56 45 52 | 24 3d 22 24 56 45 52 3a |bb2..VER|$="$VER:|
|00000110| 20 42 75 74 74 6f 6e 42 | 61 72 20 31 2e 30 20 28 | ButtonB|ar 1.0 (|
|00000120| 30 37 2e 31 39 2e 39 39 | 29 22 00 00 62 75 74 74 |07.19.99|)"..butt|
|00000130| 6f 6e 62 61 72 5f 69 64 | 20 3d 20 30 00 80 bb 00 |onbar_id| = 0....|
|00000140| 20 20 62 75 74 74 6f 6e | 62 61 72 5f 69 64 20 3d | button|bar_id =|
|00000150| 20 62 75 74 74 6f 6e 62 | 61 72 5f 69 64 20 2b 20 | buttonb|ar_id + |
|00000160| 31 00 20 20 63 78 5f 6e | 61 6d 65 24 3d 22 42 75 |1. cx_n|ame$="Bu|
|00000170| 74 74 6f 6e 42 61 72 22 | 2b dd 83 28 62 75 74 74 |ttonBar"|+..(butt|
|00000180| 6f 6e 62 61 72 5f 69 64 | 29 00 20 20 6c 6f 63 6b |onbar_id|). lock|
|00000190| 5f 6e 61 6d 65 24 3d 22 | 45 4e 56 3a 22 2b 63 78 |_name$="|ENV:"+cx|
|000001a0| 5f 6e 61 6d 65 24 00 80 | bc 20 28 be 15 28 6c 6f |_name$..|. (..(lo|
|000001b0| 63 6b 5f 6e 61 6d 65 24 | 29 3d bc 0f 29 00 73 3d |ck_name$|)=..).s=|
|000001c0| be 12 28 30 2c 6c 6f 63 | 6b 5f 6e 61 6d 65 24 29 |..(0,loc|k_name$)|
|000001d0| 20 3a 20 be 07 20 30 20 | 3a 20 dd 81 20 22 48 22 | : .. 0 |: .. "H"|
|000001e0| 20 3a 20 be 02 20 30 00 | d2 02 00 00 3b 00 3b 20 | : .. 0.|....;.; |
|000001f0| 57 41 52 4e 49 4e 47 3a | 20 45 6d 70 74 79 20 66 |WARNING:| Empty f|
|00000200| 69 6c 65 20 69 73 20 6e | 6f 74 20 72 65 63 6f 67 |ile is n|ot recog|
|00000210| 6e 69 7a 65 64 20 62 79 | 20 45 78 69 73 74 73 21 |nized by| Exists!|
|00000220| 00 3b 20 41 6e 6f 74 68 | 65 72 20 42 6c 69 74 7a |.; Anoth|er Blitz|
|00000230| 20 6d 69 73 74 61 6b 65 | 20 3a 2d 28 00 3b 00 00 | mistake| :-(.;..|
|00000240| 73 63 72 65 65 6e 5f 77 | 69 64 74 68 3d 31 00 73 |screen_w|idth=1.s|
|00000250| 63 72 65 65 6e 5f 68 65 | 69 67 68 74 3d 31 00 62 |creen_he|ight=1.b|
|00000260| 75 74 74 6f 6e 5f 6c 65 | 66 74 5f 62 6f 75 6e 64 |utton_le|ft_bound|
|00000270| 3d 31 00 62 75 74 74 6f | 6e 5f 72 69 67 68 74 5f |=1.butto|n_right_|
|00000280| 62 6f 75 6e 64 3d 31 00 | 62 75 74 74 6f 6e 5f 75 |bound=1.|button_u|
|00000290| 70 5f 62 6f 75 6e 64 3d | 31 00 62 75 74 74 6f 6e |p_bound=|1.button|
|000002a0| 5f 64 6f 77 6e 5f 62 6f | 75 6e 64 3d 31 00 00 73 |_down_bo|und=1..s|
|000002b0| 75 63 63 20 3d 20 ac 81 | 28 63 78 5f 6e 61 6d 65 |ucc = ..|(cx_name|
|000002c0| 24 2c 22 42 75 74 74 6f | 6e 42 61 72 20 31 2e 30 |$,"Butto|nBar 1.0|
|000002d0| 20 62 79 20 44 61 6e 69 | 65 6c 20 50 6f 6c 61 6e | by Dani|el Polan|
|000002e0| 73 6b 79 22 2c 22 42 75 | 74 74 6f 6e 20 6c 61 75 |sky","Bu|tton lau|
|000002f0| 6e 63 68 69 6e 67 20 69 | 6e 74 65 72 66 61 63 65 |nching i|nterface|
|00000300| 22 29 00 00 72 65 78 78 | 5f 6d 73 67 5f 70 6f 72 |")..rexx|_msg_por|
|00000310| 74 5f 62 20 3d 20 bc 0f | 00 00 2e 72 65 73 74 61 |t_b = ..|...resta|
|00000320| 72 74 00 00 6d 65 6e 75 | 66 69 6c 65 24 20 20 20 |rt..menu|file$ |
|00000330| 20 20 20 20 3d 20 22 53 | 3a 62 75 74 74 6f 6e 62 | = "S|:buttonb|
|00000340| 61 72 2e 6d 65 6e 75 22 | 00 80 0b 20 72 65 78 78 |ar.menu"|... rexx|
|00000350| 5f 6d 73 67 5f 70 6f 72 | 74 5f 62 00 20 20 e1 02 |_msg_por|t_b. ..|
|00000360| 20 50 6f 72 74 2e 6c 00 | 20 20 72 65 78 78 5f 6d | Port.l.| rexx_m|
|00000370| 73 67 5f 70 6f 72 74 5f | 62 20 3d 20 bc 0f 00 80 |sg_port_|b = ....|
|00000380| c0 00 00 00 50 6f 72 74 | 24 3d 22 22 00 80 0b 20 |....Port|$=""... |
|00000390| b5 01 3e 30 00 20 20 80 | 0b 20 b5 02 28 31 29 3d |..>0. .|. ..(1)=|
|000003a0| 22 3f 22 00 20 20 20 20 | dd 81 20 22 4d 45 4e 55 |"?". |.. "MENU|
|000003b0| 46 49 4c 45 2f 4d 2c 50 | 4f 52 54 2f 4b 22 2b dc |FILE/M,P|ORT/K"+.|
|000003c0| 86 28 31 30 29 00 20 20 | 20 20 80 05 20 65 78 69 |.(10). | .. exi|
|000003d0| 74 00 20 20 80 c0 00 00 | 20 20 80 16 20 70 61 72 |t. ....| .. par|
|000003e0| 3d 31 20 80 18 20 b5 01 | 00 20 20 20 20 70 24 3d |=1 .. ..|. p$=|
|000003f0| b5 02 28 70 61 72 29 20 | 3a 20 6c 24 3d dc 97 28 |..(par) |: l$=..(|
|00000400| 70 24 29 00 20 20 20 20 | 74 5f 70 6f 73 3d dc 89 |p$). |t_pos=..|
|00000410| 28 6c 24 2c 22 70 6f 72 | 74 3d 22 29 00 20 20 20 |(l$,"por|t="). |
|00000420| 20 80 0b 20 74 5f 70 6f | 73 3e 30 00 20 20 20 20 | .. t_po|s>0. |
|00000430| 20 20 50 6f 72 74 24 20 | 3d 20 dc 91 28 70 24 2c | Port$ |= ..(p$,|
|00000440| 74 5f 70 6f 73 2b 34 29 | 00 20 20 20 20 20 20 50 |t_pos+4)|. P|
|00000450| 6f 72 74 2e 6c 20 3d 20 | e1 01 28 20 50 6f 72 74 |ort.l = |..( Port|
|00000460| 24 20 29 00 20 20 20 20 | 20 20 80 0b 20 50 6f 72 |$ ). | .. Por|
|00000470| 74 2e 6c 20 3d 20 30 00 | 20 20 20 20 20 20 20 20 |t.l = 0.| |
|00000480| b5 8d 20 62 62 6d 24 2c | 22 45 72 72 6f 72 20 63 |.. bbm$,|"Error c|
|00000490| 72 65 61 74 69 6e 67 20 | 70 6f 72 74 3a 20 22 2b |reating |port: "+|
|000004a0| 50 6f 72 74 24 2c 22 49 | 20 73 65 65 22 20 3a 20 |Port$,"I| see" : |
|000004b0| 80 02 00 20 20 20 20 20 | 20 80 22 00 20 20 20 20 |... | .". |
|000004c0| 20 20 20 20 72 65 78 78 | 5f 6d 73 67 5f 70 6f 72 | rexx|_msg_por|
|000004d0| 74 5f 62 20 3d 20 bc 0e | 00 20 20 20 20 20 20 80 |t_b = ..|. .|
|000004e0| c0 00 20 20 20 20 80 22 | 00 20 20 20 20 20 20 74 |.. ."|. t|
|000004f0| 5f 70 6f 73 3d dc 89 28 | 6c 24 2c 22 64 65 6c 61 |_pos=..(|l$,"dela|
|00000500| 79 3d 22 29 00 20 20 20 | 20 20 20 80 0b 20 74 5f |y="). | .. t_|
|00000510| 70 6f 73 3e 30 00 20 20 | 20 20 20 20 20 20 64 65 |pos>0. | de|
|00000520| 6c 61 79 20 3d 20 bc 01 | 28 dc 91 28 70 24 2c 74 |lay = ..|(..(p$,t|
|00000530| 5f 70 6f 73 2b 35 29 29 | 00 20 20 20 20 20 20 20 |_pos+5))|. |
|00000540| 20 80 37 20 64 65 6c 61 | 79 2a 35 30 00 20 20 20 | .7 dela|y*50. |
|00000550| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 6d 65 | .". | me|
|00000560| 6e 75 66 69 6c 65 24 3d | 70 24 00 20 20 20 20 20 |nufile$=|p$. |
|00000570| 20 80 c0 00 20 20 20 20 | 80 c0 00 20 20 80 17 00 | ... |... ...|
|00000580| 80 c0 00 00 00 3b 20 20 | 20 20 20 20 20 20 20 20 |.....; | |
|00000590| 20 20 20 46 41 49 4c 45 | 44 20 54 4f 20 49 4d 50 | FAILE|D TO IMP|
|000005a0| 4c 45 4d 45 4e 54 20 50 | 55 42 53 52 45 45 4e 3d |LEMENT P|UBSREEN=|
|000005b0| 22 22 00 3b 00 3b 20 20 | 20 20 20 20 20 20 20 20 |"".;.; | |
|000005c0| 20 20 20 46 49 4e 44 53 | 43 52 45 45 4e 20 55 53 | FINDS|CREEN US|
|000005d0| 45 53 20 53 43 52 45 45 | 4e 20 54 49 54 4c 45 20 |ES SCREE|N TITLE |
|000005e0| 49 4e 53 54 45 41 44 00 | 3b 20 20 20 20 20 20 20 |INSTEAD.|; |
|000005f0| 20 20 20 20 20 20 4f 46 | 20 53 43 52 45 45 4e 20 | OF| SCREEN |
|00000600| 50 55 42 4e 41 4d 45 2e | 00 00 6e 75 6d 62 65 72 |PUBNAME.|..number|
|00000610| 5f 6f 66 5f 6d 65 6e 75 | 73 2e 6c 3d 30 00 72 65 |_of_menu|s.l=0.re|
|00000620| 73 74 61 72 74 5f 62 3d | bc 0f 00 00 3b 2d 2d 2d |start_b=|....;---|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 00 80 08 20 |--------|---.... |
|00000670| 6f 70 65 6e 5f 6d 65 6e | 75 7b 6d 65 6e 75 5f 6e |open_men|u{menu_n|
|00000680| 75 6d 62 65 72 7d 00 20 | 20 80 15 20 6d 65 6e 75 |umber}. | .. menu|
|00000690| 5f 6f 70 65 6e 5f 62 28 | 29 2c 6d 65 6e 75 5f 69 |_open_b(|),menu_i|
|000006a0| 74 65 6d 73 28 29 00 20 | 20 80 15 20 6e 75 6d 62 |tems(). | .. numb|
|000006b0| 65 72 5f 6f 66 5f 6d 65 | 6e 75 73 2c 68 61 75 74 |er_of_me|nus,haut|
|000006c0| 66 65 6e 2c 70 6f 73 78 | 2c 70 6f 73 79 2c 71 62 |fen,posx|,posy,qb|
|000006d0| 5f 6f 66 66 73 65 74 00 | 20 20 80 15 20 65 78 63 |_offset.| .. exc|
|000006e0| 6c 75 73 69 76 65 5f 6d | 65 6e 75 73 5f 62 2c 6d |lusive_m|enus_b,m|
|000006f0| 65 6e 75 73 5f 70 72 65 | 66 66 65 72 65 64 5f 64 |enus_pre|ffered_d|
|00000700| 69 72 65 63 74 69 6f 6e | 2c 66 69 78 65 64 5f 6f |irection|,fixed_o|
|00000710| 70 65 6e 5f 62 00 20 20 | 80 15 20 62 75 74 74 6f |pen_b. |.. butto|
|00000720| 6e 5f 68 65 69 67 68 74 | 2c 62 75 74 74 6f 6e 5f |n_height|,button_|
|00000730| 77 69 64 74 68 00 20 20 | 80 15 20 6d 65 6e 75 5f |width. |.. menu_|
|00000740| 74 6f 70 5f 70 6f 73 69 | 74 69 6f 6e 28 29 00 20 |top_posi|tion(). |
|00000750| 20 80 15 20 6d 65 6e 75 | 5f 64 69 72 65 63 74 69 | .. menu|_directi|
|00000760| 6f 6e 28 29 00 00 20 20 | 6f 6d 5f 6e 65 77 77 69 |on().. |om_newwi|
|00000770| 6e 64 6f 77 3d bc 0e 00 | 00 20 20 80 0b 20 65 78 |ndow=...|. .. ex|
|00000780| 63 6c 75 73 69 76 65 5f | 6d 65 6e 75 73 00 20 20 |clusive_|menus. |
|00000790| 20 20 80 16 20 6d 65 6e | 75 3d 31 20 80 18 20 6e | .. men|u=1 .. n|
|000007a0| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 00 20 |umber_of|_menus. |
|000007b0| 20 20 20 20 20 80 0b 20 | 6d 65 6e 75 5f 6f 70 65 | .. |menu_ope|
|000007c0| 6e 5f 62 28 6d 65 6e 75 | 29 00 20 20 20 20 20 20 |n_b(menu|). |
|000007d0| 20 20 c6 9f 20 6d 65 6e | 75 00 20 20 20 20 20 20 | .. men|u. |
|000007e0| 20 20 80 2b 20 c5 01 20 | 6d 65 6e 75 00 20 20 20 | .+ .. |menu. |
|000007f0| 20 20 20 20 20 6d 65 6e | 75 5f 6f 70 65 6e 5f 62 | men|u_open_b|
|00000800| 28 6d 65 6e 75 29 3d bc | 0f 00 20 20 20 20 20 20 |(menu)=.|.. |
|00000810| 20 20 80 0b 20 6d 65 6e | 75 5f 6e 75 6d 62 65 72 | .. men|u_number|
|00000820| 3d 6d 65 6e 75 00 20 20 | 20 20 20 20 20 20 20 20 |=menu. | |
|00000830| 6f 6d 5f 6e 65 77 77 69 | 6e 64 6f 77 3d bc 0f 00 |om_newwi|ndow=...|
|00000840| 20 20 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 | |.. ... |
|00000850| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 80 17 | .. .|.. ..|
|00000860| 00 20 20 80 c0 00 20 20 | 80 0b 20 6f 6d 5f 6e 65 |. ... |.. om_ne|
|00000870| 77 77 69 6e 64 6f 77 00 | 20 20 20 20 68 61 75 74 |wwindow.| haut|
|00000880| 66 65 6e 3d 28 6d 65 6e | 75 5f 69 74 65 6d 73 28 |fen=(men|u_items(|
|00000890| 6d 65 6e 75 5f 6e 75 6d | 62 65 72 29 2d 31 29 2a |menu_num|ber)-1)*|
|000008a0| 62 75 74 74 6f 6e 5f 68 | 65 69 67 68 74 00 20 20 |button_h|eight. |
|000008b0| 20 20 65 6e 78 3d 70 6f | 73 78 2b 34 2b 28 6d 65 | enx=po|sx+4+(me|
|000008c0| 6e 75 5f 6e 75 6d 62 65 | 72 2d 31 29 2a 62 75 74 |nu_numbe|r-1)*but|
|000008d0| 74 6f 6e 5f 77 69 64 74 | 68 00 20 20 20 20 80 0b |ton_widt|h. ..|
|000008e0| 20 28 6d 65 6e 75 73 5f | 70 72 65 66 66 65 72 65 | (menus_|preffere|
|000008f0| 64 5f 64 69 72 65 63 74 | 69 6f 6e 3d 2d 31 29 20 |d_direct|ion=-1) |
|00000900| 80 42 20 28 70 6f 73 79 | 2b 31 2b 62 75 74 74 6f |.B (posy|+1+butto|
|00000910| 6e 5f 68 65 69 67 68 74 | 2b 68 61 75 74 66 65 6e |n_height|+hautfen|
|00000920| 3c 3d e0 82 29 00 20 20 | 20 20 20 20 65 6e 79 3d |<=..). | eny=|
|00000930| 70 6f 73 79 2b 31 2b 62 | 75 74 74 6f 6e 5f 68 65 |posy+1+b|utton_he|
|00000940| 69 67 68 74 20 20 20 20 | 3b 4f 50 45 4e 20 44 4f |ight |;OPEN DO|
|00000950| 57 4e 00 20 20 20 20 20 | 20 3b 53 74 6f 70 00 20 |WN. | ;Stop. |
|00000960| 20 20 20 20 20 6d 65 6e | 75 5f 64 69 72 65 63 74 | men|u_direct|
|00000970| 69 6f 6e 28 6d 65 6e 75 | 5f 6e 75 6d 62 65 72 29 |ion(menu|_number)|
|00000980| 3d 31 00 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |=1. .|". |
|00000990| 65 6e 79 3d 70 6f 73 79 | 2d 28 31 2b 68 61 75 74 |eny=posy|-(1+haut|
|000009a0| 66 65 6e 29 20 20 20 20 | 20 20 20 20 3b 4f 50 45 |fen) | ;OPE|
|000009b0| 4e 20 55 50 00 20 20 20 | 20 20 20 6d 65 6e 75 5f |N UP. | menu_|
|000009c0| 64 69 72 65 63 74 69 6f | 6e 28 6d 65 6e 75 5f 6e |directio|n(menu_n|
|000009d0| 75 6d 62 65 72 29 3d 2d | 31 00 20 20 20 20 80 c0 |umber)=-|1. ..|
|000009e0| 00 00 20 20 20 20 80 0b | 20 65 6e 79 3c 30 00 20 |.. ..| eny<0. |
|000009f0| 20 20 20 20 20 65 6e 79 | 3d 65 6e 79 2b 68 61 75 | eny|=eny+hau|
|00000a00| 74 66 65 6e 2b 62 75 74 | 74 6f 6e 5f 68 65 69 67 |tfen+but|ton_heig|
|00000a10| 68 74 2b 32 00 20 20 20 | 20 80 02 20 80 0b 00 20 |ht+2. | .. ... |
|00000a20| 20 20 20 80 0b 20 65 6e | 79 2b 68 61 75 74 66 65 | .. en|y+hautfe|
|00000a30| 6e 3e e0 82 00 20 20 20 | 20 20 20 3b 20 65 6e 79 |n>... | ; eny|
|00000a40| 3d 57 42 48 65 69 67 68 | 74 2d 62 75 74 74 6f 6e |=WBHeigh|t-button|
|00000a50| 5f 68 65 69 67 68 74 2d | 32 2d 68 61 75 74 66 65 |_height-|2-hautfe|
|00000a60| 6e 00 20 20 20 20 20 20 | 65 6e 79 3d e0 82 2d 68 |n. |eny=..-h|
|00000a70| 61 75 74 66 65 6e 00 20 | 20 20 20 80 02 20 80 0b |autfen. | .. ..|
|00000a80| 00 20 20 20 20 6d 65 6e | 75 5f 74 6f 70 5f 70 6f |. men|u_top_po|
|00000a90| 73 69 74 69 6f 6e 28 6d | 65 6e 75 5f 6e 75 6d 62 |sition(m|enu_numb|
|00000aa0| 65 72 29 3d 65 6e 79 00 | 00 20 20 20 20 80 0b 20 |er)=eny.|. .. |
|00000ab0| 70 6f 73 79 3c 65 6e 79 | 20 3a 20 6d 65 6e 75 5f |posy<eny| : menu_|
|00000ac0| 64 69 72 65 63 74 69 6f | 6e 28 6d 65 6e 75 5f 6e |directio|n(menu_n|
|00000ad0| 75 6d 62 65 72 29 3d 31 | 20 3a 20 80 c0 00 00 20 |umber)=1| : .... |
|00000ae0| 20 20 20 c5 01 20 6d 65 | 6e 75 5f 6e 75 6d 62 65 | .. me|nu_numbe|
|00000af0| 72 2c 65 6e 78 2b 71 62 | 5f 6f 66 66 73 65 74 2c |r,enx+qb|_offset,|
|00000b00| 65 6e 79 2c 62 75 74 74 | 6f 6e 5f 77 69 64 74 68 |eny,butt|on_width|
|00000b10| 2b 31 2c 68 61 75 74 66 | 65 6e 2c 24 38 30 30 2c |+1,hautf|en,$800,|
|00000b20| 22 22 2c 31 2c 32 00 20 | 20 20 20 c6 8e 20 6d 65 |"",1,2. | .. me|
|00000b30| 6e 75 5f 6e 75 6d 62 65 | 72 2c 6d 65 6e 75 5f 6e |nu_numbe|r,menu_n|
|00000b40| 75 6d 62 65 72 00 20 20 | 20 20 6d 65 6e 75 5f 6f |umber. | menu_o|
|00000b50| 70 65 6e 5f 62 28 6d 65 | 6e 75 5f 6e 75 6d 62 65 |pen_b(me|nu_numbe|
|00000b60| 72 29 3d bc 0e 00 20 20 | 80 02 20 80 0b 00 80 02 |r)=... |.. .....|
|00000b70| 20 80 08 00 00 80 08 20 | 73 6c 65 65 70 7b 7d 00 | ...... |sleep{}.|
|00000b80| 20 20 80 15 20 6e 75 6d | 62 65 72 5f 6f 66 5f 6d | .. num|ber_of_m|
|00000b90| 65 6e 75 73 2c 6d 65 6e | 75 5f 6f 70 65 6e 5f 62 |enus,men|u_open_b|
|00000ba0| 28 29 00 00 20 20 c6 9f | 20 30 00 20 20 80 2b 20 |().. ..| 0. .+ |
|00000bb0| c5 01 20 30 00 20 20 80 | 16 20 6d 65 6e 75 3d 31 |.. 0. .|. menu=1|
|00000bc0| 20 80 18 20 6e 75 6d 62 | 65 72 5f 6f 66 5f 6d 65 | .. numb|er_of_me|
|00000bd0| 6e 75 73 00 20 20 20 20 | 80 0b 20 6d 65 6e 75 5f |nus. |.. menu_|
|00000be0| 6f 70 65 6e 5f 62 28 6d | 65 6e 75 29 00 20 20 20 |open_b(m|enu). |
|00000bf0| 20 20 20 c6 9f 20 6d 65 | 6e 75 00 20 20 20 20 20 | .. me|nu. |
|00000c00| 20 80 2b 20 c5 01 20 6d | 65 6e 75 00 20 20 20 20 | .+ .. m|enu. |
|00000c10| 80 02 20 80 0b 00 20 20 | 80 17 00 80 02 20 80 08 |.. ... |..... ..|
|00000c20| 00 00 80 08 20 63 6f 75 | 6e 74 5f 63 75 72 73 6f |.... cou|nt_curso|
|00000c30| 72 5f 62 6f 75 6e 64 73 | 7b 7d 00 20 20 80 15 20 |r_bounds|{}. .. |
|00000c40| 70 6f 73 78 2c 70 6f 73 | 79 00 20 20 80 15 20 62 |posx,pos|y. .. b|
|00000c50| 75 74 74 6f 6e 5f 77 69 | 64 74 68 2c 62 75 74 74 |utton_wi|dth,butt|
|00000c60| 6f 6e 5f 68 65 69 67 68 | 74 00 20 20 80 15 20 73 |on_heigh|t. .. s|
|00000c70| 63 72 65 65 6e 5f 77 69 | 64 74 68 2c 73 63 72 65 |creen_wi|dth,scre|
|00000c80| 65 6e 5f 68 65 69 67 68 | 74 00 00 20 20 80 15 20 |en_heigh|t.. .. |
|00000c90| 63 75 72 73 6f 72 5f 6c | 65 66 74 5f 62 6f 75 6e |cursor_l|eft_boun|
|00000ca0| 64 2c 63 75 72 73 6f 72 | 5f 72 69 67 68 74 5f 62 |d,cursor|_right_b|
|00000cb0| 6f 75 6e 64 00 20 20 80 | 15 20 63 75 72 73 6f 72 |ound. .|. cursor|
|00000cc0| 5f 75 70 5f 62 6f 75 6e | 64 2c 63 75 72 73 6f 72 |_up_boun|d,cursor|
|00000cd0| 5f 64 6f 77 6e 5f 62 6f | 75 6e 64 00 00 20 20 80 |_down_bo|und.. .|
|00000ce0| 15 20 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |. number|_of_menu|
|00000cf0| 73 00 00 20 20 63 75 72 | 73 6f 72 5f 6c 65 66 74 |s.. cur|sor_left|
|00000d00| 5f 62 6f 75 6e 64 20 3d | 20 30 00 20 20 63 75 72 |_bound =| 0. cur|
|00000d10| 73 6f 72 5f 72 69 67 68 | 74 5f 62 6f 75 6e 64 20 |sor_righ|t_bound |
|00000d20| 3d 20 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |= number|_of_menu|
|00000d30| 73 2d 31 00 20 20 63 75 | 72 73 6f 72 5f 75 70 5f |s-1. cu|rsor_up_|
|00000d40| 62 6f 75 6e 64 20 3d 20 | bc 02 28 28 30 2d 28 70 |bound = |..((0-(p|
|00000d50| 6f 73 79 2b 62 75 74 74 | 6f 6e 5f 68 65 69 67 68 |osy+butt|on_heigh|
|00000d60| 74 2a 30 2e 32 35 29 29 | 2f 62 75 74 74 6f 6e 5f |t*0.25))|/button_|
|00000d70| 68 65 69 67 68 74 29 00 | 20 20 63 75 72 73 6f 72 |height).| cursor|
|00000d80| 5f 64 6f 77 6e 5f 62 6f | 75 6e 64 20 3d 20 bc 02 |_down_bo|und = ..|
|00000d90| 28 28 73 63 72 65 65 6e | 5f 68 65 69 67 68 74 2d |((screen|_height-|
|00000da0| 28 70 6f 73 79 2b 62 75 | 74 74 6f 6e 5f 68 65 69 |(posy+bu|tton_hei|
|00000db0| 67 68 74 2a 30 2e 32 35 | 29 29 2f 62 75 74 74 6f |ght*0.25|))/butto|
|00000dc0| 6e 5f 68 65 69 67 68 74 | 29 00 80 02 20 80 08 00 |n_height|)... ...|
|00000dd0| 00 80 08 20 66 69 6e 64 | 5f 61 6e 64 5f 6c 65 61 |... find|_and_lea|
|00000de0| 72 6e 5f 73 63 72 65 65 | 6e 7b 7d 00 20 20 80 15 |rn_scree|n{}. ..|
|00000df0| 20 6f 70 65 6e 5f 6f 6e | 5f 77 62 5f 62 00 20 20 | open_on|_wb_b. |
|00000e00| 80 15 20 73 63 72 65 65 | 6e 5f 77 69 64 74 68 2c |.. scree|n_width,|
|00000e10| 73 63 72 65 65 6e 5f 68 | 65 69 67 68 74 00 00 20 |screen_h|eight.. |
|00000e20| 20 80 0b 20 6f 70 65 6e | 5f 6f 6e 5f 77 62 5f 62 | .. open|_on_wb_b|
|00000e30| 20 3a 20 cf 02 20 30 00 | 20 20 80 22 20 20 20 20 | : .. 0.| ." |
|00000e40| 20 20 20 20 20 20 20 20 | 3a 20 cf 04 20 30 00 20 | |: .. 0. |
|00000e50| 20 80 c0 00 20 20 76 69 | 65 77 6d 6f 64 65 2e 77 | ... vi|ewmode.w|
|00000e60| 3d da 02 2e 77 28 b5 8e | 2b 34 34 2b 33 32 29 00 |=...w(..|+44+32).|
|00000e70| 20 20 73 63 72 65 65 6e | 5f 77 69 64 74 68 3d da | screen|_width=.|
|00000e80| 02 2e 77 28 b5 8e 2b 31 | 32 29 00 20 20 73 63 72 |..w(..+1|2). scr|
|00000e90| 65 65 6e 5f 68 65 69 67 | 68 74 3d da 02 2e 77 28 |een_heig|ht=...w(|
|00000ea0| b5 8e 2b 31 34 29 00 00 | 20 20 63 6f 75 6e 74 5f |..+14)..| count_|
|00000eb0| 63 75 72 73 6f 72 5f 62 | 6f 75 6e 64 73 7b 7d 00 |cursor_b|ounds{}.|
|00000ec0| 80 02 20 80 08 00 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |.. .....|;-------|
|00000ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 00 | 00 2e 73 74 61 72 74 00 |-------.|..start.|
|00000f10| 00 00 80 16 20 69 3d 31 | 20 80 18 20 38 00 20 20 |.... i=1| .. 8. |
|00000f20| 6d 65 6e 75 5f 6f 70 65 | 6e 5f 62 28 69 29 20 20 |menu_ope|n_b(i) |
|00000f30| 20 20 20 20 20 3d 20 bc | 0f 00 20 20 6d 65 6e 75 | = .|.. menu|
|00000f40| 5f 74 6f 5f 62 65 5f 6f | 70 65 6e 5f 62 28 69 29 |_to_be_o|pen_b(i)|
|00000f50| 20 3d 20 bc 0f 00 80 17 | 00 71 5f 69 73 5f 6b 65 | = .....|.q_is_ke|
|00000f60| 79 5f 66 6f 72 5f 71 75 | 69 74 5f 62 20 3d 20 bc |y_for_qu|it_b = .|
|00000f70| 0e 00 63 75 72 73 6f 72 | 5f 78 20 3d 20 30 00 63 |..cursor|_x = 0.c|
|00000f80| 75 72 73 6f 72 5f 79 20 | 3d 20 30 00 00 80 16 20 |ursor_y |= 0.... |
|00000f90| 6d 65 6e 75 3d 31 20 80 | 18 20 38 00 20 20 80 16 |menu=1 .|. 8. ..|
|00000fa0| 20 69 74 65 6d 3d 31 20 | 80 18 20 32 31 00 20 20 | item=1 |.. 21. |
|00000fb0| 20 20 69 74 65 6d 5f 72 | 61 77 6b 65 79 28 6d 65 | item_r|awkey(me|
|00000fc0| 6e 75 2c 69 74 65 6d 29 | 3d 30 00 20 20 80 17 00 |nu,item)|=0. ...|
|00000fd0| 80 17 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....;---|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 00 3b 20 20 20 20 20 20 |--------|.; |
|00001020| 20 20 20 20 20 50 20 52 | 20 4f 20 43 20 45 20 53 | P R| O C E S|
|00001030| 20 53 20 49 20 4e 20 47 | 20 20 20 4f 20 46 20 20 | S I N G| O F |
|00001040| 20 4d 20 45 20 4e 20 55 | 20 46 20 49 20 4c 20 45 | M E N U| F I L E|
|00001050| 00 00 2e 6d 65 6e 75 70 | 61 72 73 65 00 00 80 0b |...menup|arse....|
|00001060| 20 28 be 11 20 28 23 46 | 31 2c 6d 65 6e 75 66 69 | (.. (#F|1,menufi|
|00001070| 6c 65 24 29 29 3d bc 0f | 00 20 20 cf 02 20 30 00 |le$))=..|. .. 0.|
|00001080| 20 20 b5 8d 20 22 42 75 | 74 74 6f 6e 42 61 72 20 | .. "Bu|ttonBar |
|00001090| 6d 65 73 73 61 67 65 22 | 2c 22 43 61 6e 6e 6f 74 |message"|,"Cannot|
|000010a0| 20 66 69 6e 64 20 6d 65 | 6e 75 66 69 6c 65 3a 22 | find me|nufile:"|
|000010b0| 2b 6e 24 2b 6d 65 6e 75 | 66 69 6c 65 24 2c 22 49 |+n$+menu|file$,"I|
|000010c0| 20 73 65 65 22 00 20 20 | 80 02 00 80 c0 00 00 3b | see". |.......;|
|000010d0| 20 74 69 74 72 65 24 28 | 69 2c 31 29 20 20 20 20 | titre$(|i,1) |
|000010e0| 20 20 2d 20 4d 65 6e 75 | 20 74 69 74 6c 65 00 3b | - Menu| title.;|
|000010f0| 20 74 69 74 72 65 24 28 | 69 2c 32 2e 2e 29 20 20 | titre$(|i,2..) |
|00001100| 20 20 2d 20 49 74 65 6d | 20 74 69 74 6c 65 00 3b | - Item| title.;|
|00001110| 20 73 65 71 75 65 6e 63 | 65 24 28 69 2c 32 2e 2e | sequenc|e$(i,2..|
|00001120| 29 20 2d 20 53 65 71 75 | 65 6e 63 65 20 74 6f 20 |) - Sequ|ence to |
|00001130| 62 65 20 65 78 65 63 75 | 74 65 64 00 3b 20 73 6f |be execu|ted.; so|
|00001140| 72 74 69 65 24 28 69 2c | 32 2e 2e 29 20 20 20 2d |rtie$(i,|2..) -|
|00001150| 20 4b 69 6e 64 20 6f 66 | 20 65 78 65 63 75 74 69 | Kind of| executi|
|00001160| 6f 6e 00 3b 20 6d 65 6e | 75 5f 69 74 65 6d 73 28 |on.; men|u_items(|
|00001170| 6d 65 6e 75 29 20 20 20 | 20 20 2d 20 4d 65 6e 75 |menu) | - Menu|
|00001180| 20 4c 65 6e 67 74 68 00 | 00 3b 20 49 20 77 69 6c | Length.|.; I wil|
|00001190| 6c 20 49 47 4e 4f 52 45 | 20 4b 69 6e 64 20 6f 66 |l IGNORE| Kind of|
|000011a0| 20 65 78 65 63 75 74 69 | 6f 6e 20 28 53 63 72 69 | executi|on (Scri|
|000011b0| 70 74 73 20 63 61 6e 20 | 62 65 20 61 64 64 65 64 |pts can |be added|
|000011c0| 20 6c 61 74 65 72 21 29 | 00 3b 20 50 6f 73 78 20 | later!)|.; Posx |
|000011d0| 61 6e 64 20 50 6f 73 79 | 20 61 72 65 20 6e 6f 77 |and Posy| are now|
|000011e0| 20 70 61 72 74 20 6f 66 | 20 6d 65 6e 75 66 69 6c | part of| menufil|
|000011f0| 65 00 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.. | |
|00001200| 20 20 20 20 20 20 20 3b | 20 20 20 20 20 20 20 20 | ;| |
|00001210| 20 20 20 20 20 20 20 20 | 44 20 45 20 46 20 41 20 | |D E F A |
|00001220| 55 20 4c 20 54 20 53 00 | 00 71 75 69 74 5f 62 75 |U L T S.|.quit_bu|
|00001230| 74 74 6f 6e 5f 62 20 20 | 20 20 20 20 20 3d 20 bc |tton_b | = .|
|00001240| 0f 00 73 74 61 62 6c 65 | 5f 62 61 72 5f 62 20 20 |..stable|_bar_b |
|00001250| 20 20 20 20 20 20 3d 20 | bc 0f 00 66 6f 6e 74 24 | = |...font$|
|00001260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d | | =|
|00001270| 20 22 74 6f 70 61 7a 2e | 66 6f 6e 74 22 00 66 6f | "topaz.|font".fo|
|00001280| 6e 74 5f 68 65 69 67 68 | 74 20 20 20 20 20 20 20 |nt_heigh|t |
|00001290| 20 20 3d 20 38 00 70 6f | 73 78 20 20 20 20 20 20 | = 8.po|sx |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 37 00 70 6f | | = 7.po|
|000012b0| 73 79 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |sy | |
|000012c0| 20 20 3d 20 e0 82 2d 31 | 33 00 65 78 63 6c 75 73 | = ..-1|3.exclus|
|000012d0| 69 76 65 5f 6d 65 6e 75 | 73 5f 62 20 20 20 3d 20 |ive_menu|s_b = |
|000012e0| bc 0f 00 6d 65 6e 75 73 | 5f 70 72 65 66 66 65 72 |...menus|_preffer|
|000012f0| 65 64 5f 64 69 72 65 63 | 74 69 6f 6e 20 20 3d 20 |ed_direc|tion = |
|00001300| 31 00 66 69 78 65 64 5f | 6f 70 65 6e 5f 62 20 20 |1.fixed_|open_b |
|00001310| 20 20 20 20 20 20 3d 20 | bc 0f 00 72 75 6e 61 6e | = |...runan|
|00001320| 64 64 69 65 5f 62 20 20 | 20 20 20 20 20 20 20 3d |ddie_b | =|
|00001330| 20 bc 0f 00 72 75 6e 61 | 6e 64 73 6c 65 65 70 5f | ...runa|ndsleep_|
|00001340| 62 20 20 20 20 20 20 20 | 3d 20 bc 0f 00 6f 70 65 |b |= ...ope|
|00001350| 6e 5f 6f 6e 5f 77 62 5f | 62 20 20 20 20 20 20 20 |n_on_wb_|b |
|00001360| 20 3d 20 bc 0f 00 62 75 | 74 74 6f 6e 5f 77 69 64 | = ...bu|tton_wid|
|00001370| 74 68 20 20 20 20 20 20 | 20 20 3d 20 39 30 00 68 |th | = 90.h|
|00001380| 6f 74 6b 65 79 24 20 20 | 20 20 20 20 20 20 20 20 |otkey$ | |
|00001390| 20 20 20 3d 20 22 22 00 | 00 be 08 20 23 46 31 00 | = "".|... #F1.|
|000013a0| 00 6d 65 6e 75 3d 31 2d | 31 00 80 0c 20 be 0d 28 |.menu=1-|1... ..(|
|000013b0| 23 46 31 29 3d bc 0f 00 | 20 20 6c 69 6e 65 5f 24 |#F1)=...| line_$|
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 dd 01 | | = ..|
|000013d0| 28 31 36 30 29 00 20 20 | 6c 69 6e 65 5f 6c 65 6e |(160). |line_len|
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 dc 8f 28 6c | | = ..(l|
|000013f0| 69 6e 65 5f 24 29 00 20 | 20 6e 6f 5f 63 6f 6e 74 |ine_$). | no_cont|
|00001400| 69 6e 75 65 20 20 20 20 | 20 20 20 3d 20 bc 0e 00 |inue | = ...|
|00001410| 20 20 80 0b 20 6c 69 6e | 65 5f 24 3c 3e 22 22 00 | .. lin|e_$<>"".|
|00001420| 20 20 20 20 63 68 24 3d | dc 81 28 6c 69 6e 65 5f | ch$=|..(line_|
|00001430| 24 2c 31 29 00 20 20 20 | 20 80 0b 20 63 68 24 3d |$,1). | .. ch$=|
|00001440| 22 3b 22 20 80 8a 20 63 | 68 24 3d 22 23 22 20 80 |";" .. c|h$="#" .|
|00001450| 8a 20 63 68 24 3d 22 2f | 22 00 20 20 20 20 20 20 |. ch$="/|". |
|00001460| 80 05 20 65 6e 64 70 61 | 72 73 65 77 68 69 6c 65 |.. endpa|rsewhile|
|00001470| 00 20 20 20 20 80 c0 00 | 00 20 20 20 20 80 0b 20 |. ...|. .. |
|00001480| 63 68 24 3d 22 3a 22 20 | 20 20 20 20 20 20 20 20 |ch$=":" | |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 4d | | ; M|
|000014a0| 45 4e 55 54 49 54 4c 45 | 00 20 20 20 20 20 20 80 |ENUTITLE|. .|
|000014b0| 0b 20 6d 65 6e 75 3e 30 | 00 20 20 20 20 20 20 20 |. menu>0|. |
|000014c0| 20 6d 65 6e 75 5f 69 74 | 65 6d 73 28 6d 65 6e 75 | menu_it|ems(menu|
|000014d0| 29 3d 69 74 65 6d 00 20 | 20 20 20 20 20 80 c0 00 |)=item. | ...|
|000014e0| 20 20 20 20 20 20 6d 65 | 6e 75 3d 6d 65 6e 75 2b | me|nu=menu+|
|000014f0| 31 00 20 20 20 20 20 20 | 74 69 74 72 65 24 28 6d |1. |titre$(m|
|00001500| 65 6e 75 2c 31 29 3d dc | 82 28 6c 69 6e 65 5f 24 |enu,1)=.|.(line_$|
|00001510| 2c dc 8f 28 6c 69 6e 65 | 5f 24 29 2d 31 29 00 20 |,..(line|_$)-1). |
|00001520| 20 20 20 20 20 69 74 65 | 6d 3d 32 2d 31 00 20 20 | ite|m=2-1. |
|00001530| 20 20 20 20 65 78 70 65 | 63 74 65 64 5f 66 69 65 | expe|cted_fie|
|00001540| 6c 64 3d 30 00 20 20 20 | 20 20 20 80 05 20 65 6e |ld=0. | .. en|
|00001550| 64 70 61 72 73 65 77 68 | 69 6c 65 00 20 20 20 20 |dparsewh|ile. |
|00001560| 80 c0 00 00 20 20 20 20 | 80 0b 20 6d 65 6e 75 3e |.... |.. menu>|
|00001570| 30 00 20 20 20 20 20 20 | 80 0b 20 65 78 70 65 63 |0. |.. expec|
|00001580| 74 65 64 5f 66 69 65 6c | 64 3d 30 00 20 20 20 20 |ted_fiel|d=0. |
|00001590| 20 20 20 20 69 74 65 6d | 3d 69 74 65 6d 2b 31 00 | item|=item+1.|
|000015a0| 20 20 20 20 20 20 20 20 | 73 65 70 61 72 70 6f 73 | |separpos|
|000015b0| 3d dc 89 28 6c 69 6e 65 | 5f 24 2c 22 7c 22 29 00 |=..(line|_$,"|").|
|000015c0| 20 20 20 20 20 20 20 20 | 80 0b 20 73 65 70 61 72 | |.. separ|
|000015d0| 70 6f 73 3e 30 00 20 20 | 20 20 20 20 20 20 20 20 |pos>0. | |
|000015e0| 74 69 74 72 65 24 28 6d | 65 6e 75 2c 69 74 65 6d |titre$(m|enu,item|
|000015f0| 29 3d dc 81 28 6c 69 6e | 65 5f 24 2c 73 65 70 61 |)=..(lin|e_$,sepa|
|00001600| 72 70 6f 73 2d 31 29 00 | 20 20 20 20 20 20 20 20 |rpos-1).| |
|00001610| 20 20 72 61 77 5f 6b 65 | 79 2e 62 20 3d 61 73 63 | raw_ke|y.b =asc|
|00001620| 69 69 5f 74 6f 5f 72 61 | 77 6b 65 79 28 dc 87 28 |ii_to_ra|wkey(..(|
|00001630| dc 98 28 dc 83 28 6c 69 | 6e 65 5f 24 2c 73 65 70 |..(..(li|ne_$,sep|
|00001640| 61 72 70 6f 73 2b 31 2c | 31 29 29 29 29 00 20 20 |arpos+1,|1)))). |
|00001650| 20 20 20 20 20 20 20 20 | 69 74 65 6d 5f 72 61 77 | |item_raw|
|00001660| 6b 65 79 28 6d 65 6e 75 | 2c 69 74 65 6d 29 3d 72 |key(menu|,item)=r|
|00001670| 61 77 5f 6b 65 79 2e 62 | 00 20 20 20 20 20 20 20 |aw_key.b|. |
|00001680| 20 20 20 71 5f 69 73 5f | 6b 65 79 5f 66 6f 72 5f | q_is_|key_for_|
|00001690| 71 75 69 74 5f 62 20 3d | 20 28 72 61 77 5f 6b 65 |quit_b =| (raw_ke|
|000016a0| 79 2e 62 3c 3e 31 36 29 | 20 80 42 20 71 5f 69 73 |y.b<>16)| .B q_is|
|000016b0| 5f 6b 65 79 5f 66 6f 72 | 5f 71 75 69 74 5f 62 3b |_key_for|_quit_b;|
|000016c0| 20 20 20 20 31 36 20 69 | 73 20 71 5f 72 61 77 6b | 16 i|s q_rawk|
|000016d0| 65 79 00 20 20 20 20 20 | 20 20 20 80 22 00 20 20 |ey. | .". |
|000016e0| 20 20 20 20 20 20 20 20 | 73 65 70 61 72 70 6f 73 | |separpos|
|000016f0| 3d dc 89 28 6c 69 6e 65 | 5f 24 2c 22 5f 22 29 00 |=..(line|_$,"_").|
|00001700| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 73 65 70 | | .. sep|
|00001710| 61 72 70 6f 73 3e 30 00 | 20 20 20 20 20 20 20 20 |arpos>0.| |
|00001720| 20 20 20 20 72 61 77 5f | 6b 65 79 2e 62 20 3d 61 | raw_|key.b =a|
|00001730| 73 63 69 69 5f 74 6f 5f | 72 61 77 6b 65 79 28 dc |scii_to_|rawkey(.|
|00001740| 87 28 dc 98 28 dc 83 28 | 6c 69 6e 65 5f 24 2c 73 |.(..(..(|line_$,s|
|00001750| 65 70 61 72 70 6f 73 2b | 31 2c 31 29 29 29 29 00 |eparpos+|1,1)))).|
|00001760| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 74 65 6d | | item|
|00001770| 5f 72 61 77 6b 65 79 28 | 6d 65 6e 75 2c 69 74 65 |_rawkey(|menu,ite|
|00001780| 6d 29 3d 72 61 77 5f 6b | 65 79 2e 62 00 20 20 20 |m)=raw_k|ey.b. |
|00001790| 20 20 20 20 20 20 20 20 | 20 71 5f 69 73 5f 6b 65 | | q_is_ke|
|000017a0| 79 5f 66 6f 72 5f 71 75 | 69 74 5f 62 20 3d 20 28 |y_for_qu|it_b = (|
|000017b0| 72 61 77 5f 6b 65 79 2e | 62 3c 3e 31 36 29 20 80 |raw_key.|b<>16) .|
|000017c0| 42 20 71 5f 69 73 5f 6b | 65 79 5f 66 6f 72 5f 71 |B q_is_k|ey_for_q|
|000017d0| 75 69 74 5f 62 3b 20 20 | 20 20 31 36 20 69 73 20 |uit_b; | 16 is |
|000017e0| 71 5f 72 61 77 6b 65 79 | 00 20 20 20 20 20 20 20 |q_rawkey|. |
|000017f0| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 20 20 | .". | |
|00001800| 20 20 69 74 65 6d 5f 72 | 61 77 6b 65 79 28 6d 65 | item_r|awkey(me|
|00001810| 6e 75 2c 69 74 65 6d 29 | 3d 30 00 20 20 20 20 20 |nu,item)|=0. |
|00001820| 20 20 20 20 20 80 c0 00 | 20 20 20 20 20 20 20 20 | ...| |
|00001830| 20 20 74 69 74 72 65 24 | 28 6d 65 6e 75 2c 69 74 | titre$|(menu,it|
|00001840| 65 6d 29 3d 6c 69 6e 65 | 5f 24 00 20 20 20 20 20 |em)=line|_$. |
|00001850| 20 20 20 80 c0 00 20 20 | 20 20 20 20 80 22 00 20 | ... | .". |
|00001860| 20 20 20 20 20 20 20 73 | 65 71 75 65 6e 63 65 24 | s|equence$|
|00001870| 28 6d 65 6e 75 2c 69 74 | 65 6d 29 3d 6c 69 6e 65 |(menu,it|em)=line|
|00001880| 5f 24 00 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |_$. | ... |
|00001890| 20 20 65 78 70 65 63 74 | 65 64 5f 66 69 65 6c 64 | expect|ed_field|
|000018a0| 3d 31 2d 65 78 70 65 63 | 74 65 64 5f 66 69 65 6c |=1-expec|ted_fiel|
|000018b0| 64 00 20 20 20 20 20 20 | 80 05 20 65 6e 64 70 61 |d. |.. endpa|
|000018c0| 72 73 65 77 68 69 6c 65 | 00 20 20 20 20 80 c0 00 |rsewhile|. ...|
|000018d0| 00 00 20 20 20 20 3b 20 | 20 20 20 20 20 20 20 20 |.. ; | |
|000018e0| 20 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ======|========|
|000018f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001900| 3d 3d 3d 3d 00 20 20 20 | 20 3b 20 20 20 20 20 20 |====. | ; |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 | | P|
|00001920| 72 65 6d 65 6e 75 20 74 | 61 67 73 00 20 20 20 20 |remenu t|ags. |
|00001930| 3b 20 20 20 20 20 20 20 | 20 20 20 20 3d 3d 3d 3d |; | ====|
|00001940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 00 00 |========|======..|
|00001960| 00 20 20 20 20 80 0b 20 | dc 89 28 6c 69 6e 65 5f |. .. |..(line_|
|00001970| 24 2c 20 22 5c 22 29 3e | 30 00 20 20 20 20 20 20 |$, "\")>|0. |
|00001980| 6c 24 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l$ | |
|00001990| 20 3d 20 dc 97 28 6c 69 | 6e 65 5f 24 29 00 00 20 | = ..(li|ne_$).. |
|000019a0| 20 20 20 20 20 71 75 69 | 74 5f 62 75 74 74 6f 6e | qui|t_button|
|000019b0| 5f 62 20 20 20 20 20 20 | 3d 20 28 dc 89 28 6c 24 |_b |= (..(l$|
|000019c0| 2c 20 22 5c 71 75 69 74 | 62 75 74 74 6f 6e 22 29 |, "\quit|button")|
|000019d0| 3e 30 29 20 20 20 20 20 | 20 20 20 80 8a 20 71 75 |>0) | .. qu|
|000019e0| 69 74 5f 62 75 74 74 6f | 6e 5f 62 00 20 20 20 20 |it_butto|n_b. |
|000019f0| 20 20 73 74 61 62 6c 65 | 5f 62 61 72 5f 62 20 20 | stable|_bar_b |
|00001a00| 20 20 20 20 20 3d 20 28 | dc 89 28 6c 24 2c 20 22 | = (|..(l$, "|
|00001a10| 5c 73 74 61 62 6c 65 62 | 61 72 22 29 3e 30 29 20 |\stableb|ar")>0) |
|00001a20| 20 20 20 20 20 20 20 20 | 80 8a 20 73 74 61 62 6c | |.. stabl|
|00001a30| 65 5f 62 61 72 5f 62 00 | 20 20 20 20 20 20 65 78 |e_bar_b.| ex|
|00001a40| 63 6c 75 73 69 76 65 5f | 6d 65 6e 75 73 5f 62 20 |clusive_|menus_b |
|00001a50| 20 3d 20 28 dc 89 28 6c | 24 2c 20 22 5c 65 78 63 | = (..(l|$, "\exc|
|00001a60| 6c 75 73 69 76 65 6d 65 | 6e 75 73 22 29 3e 30 29 |lusiveme|nus")>0)|
|00001a70| 20 20 20 20 80 8a 20 65 | 78 63 6c 75 73 69 76 65 | .. e|xclusive|
|00001a80| 5f 6d 65 6e 75 73 5f 62 | 00 20 20 20 20 20 20 66 |_menus_b|. f|
|00001a90| 69 78 65 64 5f 6f 70 65 | 6e 5f 62 20 20 20 20 20 |ixed_ope|n_b |
|00001aa0| 20 20 3d 20 28 dc 89 28 | 6c 24 2c 20 22 5c 66 69 | = (..(|l$, "\fi|
|00001ab0| 78 65 64 6f 70 65 6e 22 | 29 3e 30 29 20 20 20 20 |xedopen"|)>0) |
|00001ac0| 20 20 20 20 20 80 8a 20 | 66 69 78 65 64 5f 6f 70 | .. |fixed_op|
|00001ad0| 65 6e 5f 62 00 20 20 20 | 20 20 20 72 75 6e 61 6e |en_b. | runan|
|00001ae0| 64 64 69 65 5f 62 20 20 | 20 20 20 20 20 20 3d 20 |ddie_b | = |
|00001af0| 28 dc 89 28 6c 24 2c 20 | 22 5c 72 75 6e 61 6e 64 |(..(l$, |"\runand|
|00001b00| 64 69 65 22 29 3e 30 29 | 20 20 20 20 20 20 20 20 |die")>0)| |
|00001b10| 20 80 8a 20 72 75 6e 61 | 6e 64 64 69 65 5f 62 00 | .. runa|nddie_b.|
|00001b20| 20 20 20 20 20 20 72 75 | 6e 61 6e 64 73 6c 65 65 | ru|nandslee|
|00001b30| 70 5f 62 20 20 20 20 20 | 20 3d 20 28 dc 89 28 6c |p_b | = (..(l|
|00001b40| 24 2c 20 22 5c 72 75 6e | 61 6e 64 73 6c 65 65 70 |$, "\run|andsleep|
|00001b50| 22 29 3e 30 29 20 20 20 | 20 20 20 20 80 8a 20 72 |")>0) | .. r|
|00001b60| 75 6e 61 6e 64 73 6c 65 | 65 70 5f 62 00 20 20 20 |unandsle|ep_b. |
|00001b70| 20 20 20 6f 70 65 6e 5f | 6f 6e 5f 77 62 5f 62 20 | open_|on_wb_b |
|00001b80| 20 20 20 20 20 20 3d 20 | 28 dc 89 28 6c 24 2c 20 | = |(..(l$, |
|00001b90| 22 5c 77 6f 72 6b 62 65 | 6e 63 68 22 29 3e 30 29 |"\workbe|nch")>0)|
|00001ba0| 20 20 20 20 20 20 20 20 | 20 80 8a 20 6f 70 65 6e | | .. open|
|00001bb0| 5f 6f 6e 5f 77 62 5f 62 | 00 20 20 20 20 20 20 63 |_on_wb_b|. c|
|00001bc0| 6c 6f 73 65 64 5f 6d 65 | 6e 75 5f 6b 65 79 73 5f |losed_me|nu_keys_|
|00001bd0| 62 20 3d 20 28 dc 89 28 | 6c 24 2c 20 22 5c 61 6c |b = (..(|l$, "\al|
|00001be0| 6c 6b 65 79 73 22 29 3e | 30 29 20 20 20 20 20 20 |lkeys")>|0) |
|00001bf0| 20 20 20 20 20 80 8a 20 | 63 6c 6f 73 65 64 5f 6d | .. |closed_m|
|00001c00| 65 6e 75 5f 6b 65 79 73 | 5f 62 00 20 20 20 20 20 |enu_keys|_b. |
|00001c10| 20 6f 70 65 6e 5f 6f 6e | 5f 68 6f 74 6b 65 79 5f | open_on|_hotkey_|
|00001c20| 62 20 20 20 3d 20 28 dc | 89 28 6c 24 2c 20 22 5c |b = (.|.(l$, "\|
|00001c30| 6f 70 65 6e 6f 6e 68 6f | 74 6b 65 79 22 29 3e 30 |openonho|tkey")>0|
|00001c40| 29 20 20 20 20 20 20 80 | 8a 20 6f 70 65 6e 5f 6f |) .|. open_o|
|00001c50| 6e 5f 68 6f 74 6b 65 79 | 5f 62 00 20 20 20 20 20 |n_hotkey|_b. |
|00001c60| 20 80 0b 20 dc 89 28 6c | 24 2c 22 5c 6f 70 65 6e | .. ..(l|$,"\open|
|00001c70| 64 6f 77 6e 22 29 20 3a | 20 6d 65 6e 75 73 5f 70 |down") :| menus_p|
|00001c80| 72 65 66 66 65 72 65 64 | 5f 64 69 72 65 63 74 69 |reffered|_directi|
|00001c90| 6f 6e 3d 2d 31 20 3a 20 | 80 c0 00 00 00 20 20 20 |on=-1 : |..... |
|00001ca0| 20 20 20 74 61 67 70 6f | 73 20 20 20 20 20 20 20 | tagpo|s |
|00001cb0| 20 20 20 20 3d 20 dc 89 | 28 6c 24 2c 20 22 5c 70 | = ..|(l$, "\p|
|00001cc0| 72 65 66 69 78 22 29 20 | 3a 20 80 0b 20 74 61 67 |refix") |: .. tag|
|00001cd0| 70 6f 73 3e 30 00 20 20 | 20 20 20 20 20 20 70 72 |pos>0. | pr|
|00001ce0| 65 66 69 78 24 3d dc 91 | 28 6c 24 2c 74 61 67 70 |efix$=..|(l$,tagp|
|00001cf0| 6f 73 2b 37 29 00 20 20 | 20 20 20 20 20 20 80 05 |os+7). | ..|
|00001d00| 20 65 6e 64 70 61 72 73 | 65 77 68 69 6c 65 00 20 | endpars|ewhile. |
|00001d10| 20 20 20 20 20 80 c0 00 | 00 20 20 20 20 20 20 74 | ...|. t|
|00001d20| 61 67 70 6f 73 20 20 20 | 20 20 20 20 20 20 20 20 |agpos | |
|00001d30| 3d 20 dc 89 28 6c 24 2c | 20 22 5c 70 6f 73 69 74 |= ..(l$,| "\posit|
|00001d40| 69 6f 6e 20 22 29 20 3a | 20 80 0b 20 74 61 67 70 |ion ") :| .. tagp|
|00001d50| 6f 73 3e 30 00 20 20 20 | 20 20 20 20 20 74 24 3d |os>0. | t$=|
|00001d60| dc 91 28 6c 24 2c 74 61 | 67 70 6f 73 2b 39 29 00 |..(l$,ta|gpos+9).|
|00001d70| 20 20 20 20 20 20 20 20 | 73 65 70 61 72 61 74 65 | |separate|
|00001d80| 5f 70 6f 73 3d a5 8d 28 | 30 2c dc 89 28 74 24 2c |_pos=..(|0,..(t$,|
|00001d90| 22 2c 22 29 29 00 20 20 | 20 20 20 20 20 20 70 6f |",")). | po|
|00001da0| 73 78 3d bc 01 28 dc 81 | 28 74 24 2c 73 65 70 61 |sx=..(..|(t$,sepa|
|00001db0| 72 61 74 65 5f 70 6f 73 | 2d 31 29 29 00 20 20 20 |rate_pos|-1)). |
|00001dc0| 20 20 20 20 20 70 6f 73 | 79 3d bc 01 28 dc 91 28 | pos|y=..(..(|
|00001dd0| 74 24 2c 73 65 70 61 72 | 61 74 65 5f 70 6f 73 29 |t$,separ|ate_pos)|
|00001de0| 29 00 20 20 20 20 20 20 | 20 20 80 05 20 65 6e 64 |). | .. end|
|00001df0| 70 61 72 73 65 77 68 69 | 6c 65 00 20 20 20 20 20 |parsewhi|le. |
|00001e00| 20 80 c0 00 00 20 20 20 | 20 20 20 74 61 67 70 6f | .... | tagpo|
|00001e10| 73 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 dc 89 |s | = ..|
|00001e20| 28 6c 24 2c 20 22 5c 66 | 6f 6e 74 20 22 29 20 3a |(l$, "\f|ont ") :|
|00001e30| 20 80 0b 20 74 61 67 70 | 6f 73 3e 30 00 20 20 20 | .. tagp|os>0. |
|00001e40| 20 20 20 20 20 74 24 3d | dc 91 28 6c 24 2c 74 61 | t$=|..(l$,ta|
|00001e50| 67 70 6f 73 2b 35 29 00 | 20 20 20 20 20 20 20 20 |gpos+5).| |
|00001e60| 73 65 70 61 72 61 74 65 | 5f 70 6f 73 3d a5 8d 28 |separate|_pos=..(|
|00001e70| 30 2c dc 89 28 74 24 2c | 22 2c 22 29 29 00 20 20 |0,..(t$,|",")). |
|00001e80| 20 20 20 20 20 20 66 6f | 6e 74 24 3d dc 81 28 74 | fo|nt$=..(t|
|00001e90| 24 2c 73 65 70 61 72 61 | 74 65 5f 70 6f 73 2d 31 |$,separa|te_pos-1|
|00001ea0| 29 00 20 20 20 20 20 20 | 20 20 66 6f 6e 74 5f 68 |). | font_h|
|00001eb0| 65 69 67 68 74 3d bc 01 | 28 dc 91 28 74 24 2c 73 |eight=..|(..(t$,s|
|00001ec0| 65 70 61 72 61 74 65 5f | 70 6f 73 29 29 00 20 20 |eparate_|pos)). |
|00001ed0| 20 20 20 20 20 20 66 6f | 6e 74 5f 68 65 69 67 68 | fo|nt_heigh|
|00001ee0| 74 3d a5 8d 28 36 2c 66 | 6f 6e 74 5f 68 65 69 67 |t=..(6,f|ont_heig|
|00001ef0| 68 74 29 00 20 20 20 20 | 20 20 20 20 80 05 20 65 |ht). | .. e|
|00001f00| 6e 64 70 61 72 73 65 77 | 68 69 6c 65 00 20 20 20 |ndparsew|hile. |
|00001f10| 20 20 20 80 c0 00 00 20 | 20 20 20 20 20 74 61 67 | .... | tag|
|00001f20| 70 6f 73 20 20 20 20 20 | 20 20 20 20 20 20 3d 20 |pos | = |
|00001f30| dc 89 28 6c 24 2c 20 22 | 5c 6f 70 65 6e 6d 65 6e |..(l$, "|\openmen|
|00001f40| 75 22 29 20 3a 20 80 0b | 20 74 61 67 70 6f 73 3e |u") : ..| tagpos>|
|00001f50| 30 00 20 20 20 20 20 20 | 20 20 80 0b 20 dc 89 28 |0. | .. ..(|
|00001f60| 6c 24 2c 22 61 6c 6c 22 | 29 00 20 20 20 20 20 20 |l$,"all"|). |
|00001f70| 20 20 20 20 80 16 20 69 | 3d 31 20 80 18 20 38 20 | .. i|=1 .. 8 |
|00001f80| 3a 20 6d 65 6e 75 5f 74 | 6f 5f 62 65 5f 6f 70 65 |: menu_t|o_be_ope|
|00001f90| 6e 5f 62 28 69 29 3d bc | 0e 20 3a 20 80 17 00 20 |n_b(i)=.|. : ... |
|00001fa0| 20 20 20 20 20 20 20 80 | 22 00 20 20 20 20 20 20 | .|". |
|00001fb0| 20 20 20 20 69 3d bc 01 | 28 dc 91 28 6c 24 2c 74 | i=..|(..(l$,t|
|00001fc0| 61 67 70 6f 73 2b 38 29 | 29 00 20 20 20 20 20 20 |agpos+8)|). |
|00001fd0| 20 20 20 20 80 0b 20 69 | 3e 30 20 3a 20 6d 65 6e | .. i|>0 : men|
|00001fe0| 75 5f 74 6f 5f 62 65 5f | 6f 70 65 6e 5f 62 28 69 |u_to_be_|open_b(i|
|00001ff0| 29 3d bc 0e 20 3a 20 80 | c0 00 20 20 20 20 20 20 |)=.. : .|.. |
|00002000| 20 20 80 c0 00 20 20 20 | 20 20 20 20 20 80 05 20 | ... | .. |
|00002010| 65 6e 64 70 61 72 73 65 | 77 68 69 6c 65 00 20 20 |endparse|while. |
|00002020| 20 20 20 20 80 c0 00 00 | 20 20 20 20 20 20 74 61 | ....| ta|
|00002030| 67 70 6f 73 20 20 20 20 | 20 20 20 20 20 20 20 3d |gpos | =|
|00002040| 20 20 dc 89 28 6c 24 2c | 20 22 5c 62 75 74 74 6f | ..(l$,| "\butto|
|00002050| 6e 77 69 64 74 68 22 29 | 20 3a 20 80 0b 20 74 61 |nwidth")| : .. ta|
|00002060| 67 70 6f 73 3e 30 00 20 | 20 20 20 20 20 20 20 62 |gpos>0. | b|
|00002070| 75 74 74 6f 6e 5f 77 69 | 64 74 68 3d bc 01 28 dc |utton_wi|dth=..(.|
|00002080| 91 28 6c 24 2c 74 61 67 | 70 6f 73 2b 31 31 29 29 |.(l$,tag|pos+11))|
|00002090| 00 20 20 20 20 20 20 20 | 20 80 05 20 65 6e 64 70 |. | .. endp|
|000020a0| 61 72 73 65 77 68 69 6c | 65 00 20 20 20 20 20 20 |arsewhil|e. |
|000020b0| 80 c0 00 00 20 20 20 20 | 20 20 74 61 67 70 6f 73 |.... | tagpos|
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 3d 20 20 dc 89 | | = ..|
|000020d0| 28 6c 24 2c 20 22 5c 68 | 6f 74 6b 65 79 22 29 20 |(l$, "\h|otkey") |
|000020e0| 3a 20 80 0b 20 74 61 67 | 70 6f 73 3e 30 00 20 20 |: .. tag|pos>0. |
|000020f0| 20 20 20 20 20 20 68 6f | 74 6b 65 79 24 3d dc 91 | ho|tkey$=..|
|00002100| 28 6c 24 2c 74 61 67 70 | 6f 73 2b 36 29 00 20 20 |(l$,tagp|os+6). |
|00002110| 20 20 20 20 20 20 80 05 | 20 65 6e 64 70 61 72 73 | ..| endpars|
|00002120| 65 77 68 69 6c 65 00 20 | 20 20 20 20 20 80 c0 00 |ewhile. | ...|
|00002130| 20 20 20 20 80 c0 00 20 | 20 80 c0 00 00 00 20 20 | ... | ..... |
|00002140| 3b 55 73 65 20 49 6e 74 | 75 69 46 6f 6e 74 20 31 |;Use Int|uiFont 1|
|00002150| 00 20 20 65 6e 64 70 61 | 72 73 65 77 68 69 6c 65 |. endpa|rsewhile|
|00002160| 00 80 c1 00 be 02 20 23 | 46 31 00 6d 65 6e 75 5f |...... #|F1.menu_|
|00002170| 69 74 65 6d 73 28 6d 65 | 6e 75 29 3d 69 74 65 6d |items(me|nu)=item|
|00002180| 00 00 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....;---|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 00 3b 20 20 20 20 |--------|--.; |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021d0| 20 20 50 20 41 20 52 20 | 53 20 45 20 44 00 00 70 | P A R |S E D..p|
|000021e0| 6f 73 79 3d a5 89 28 70 | 6f 73 79 2c e0 82 2d 31 |osy=..(p|osy,..-1|
|000021f0| 33 29 00 00 80 0b 20 28 | dc 97 28 dc 82 28 66 6f |3).... (|..(..(fo|
|00002200| 6e 74 24 2c 35 29 29 3d | 22 2e 66 6f 6e 74 22 29 |nt$,5))=|".font")|
|00002210| 3d bc 0f 00 20 20 66 6f | 6e 74 24 3d 66 6f 6e 74 |=... fo|nt$=font|
|00002220| 24 2b 22 2e 66 6f 6e 74 | 22 00 80 c0 00 80 0b 20 |$+".font|"...... |
|00002230| be 15 28 22 46 6f 6e 74 | 73 3a 22 2b 66 6f 6e 74 |..("Font|s:"+font|
|00002240| 24 29 3d bc 0f 00 20 20 | 66 6f 6e 74 24 3d 22 74 |$)=... |font$="t|
|00002250| 6f 70 61 7a 2e 66 6f 6e | 74 22 00 80 c0 00 00 6e |opaz.fon|t".....n|
|00002260| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 3d 6d |umber_of|_menus=m|
|00002270| 65 6e 75 00 62 75 74 74 | 6f 6e 5f 68 65 69 67 68 |enu.butt|on_heigh|
|00002280| 74 3d 66 6f 6e 74 5f 68 | 65 69 67 68 74 2b 34 00 |t=font_h|eight+4.|
|00002290| 66 69 6e 64 5f 61 6e 64 | 5f 6c 65 61 72 6e 5f 73 |find_and|_learn_s|
|000022a0| 63 72 65 65 6e 7b 7d 00 | 00 73 75 63 63 20 3d 20 |creen{}.|.succ = |
|000022b0| ac 82 28 30 2c 68 6f 74 | 6b 65 79 24 29 00 00 c3 |..(0,hot|key$)...|
|000022c0| 01 20 30 2c 66 6f 6e 74 | 24 2c 66 6f 6e 74 5f 68 |. 0,font|$,font_h|
|000022d0| 65 69 67 68 74 00 4c 6f | 61 64 53 63 72 65 65 6e |eight.Lo|adScreen|
|000022e0| 46 6f 6e 74 7b 31 7d 20 | 3a 20 53 63 72 65 65 6e |Font{1} |: Screen|
|000022f0| 46 6f 6e 74 5f 48 65 69 | 67 68 74 2e 62 20 3d 20 |Font_Hei|ght.b = |
|00002300| 50 41 52 41 4d 32 42 2e | 62 00 00 80 0b 20 6e 75 |PARAM2B.|b.... nu|
|00002310| 6d 62 65 72 5f 6f 66 5f | 6d 65 6e 75 73 3d 30 00 |mber_of_|menus=0.|
|00002320| 20 20 d2 02 00 20 20 dd | 81 20 22 45 72 72 6f 72 | ... .|. "Error|
|00002330| 3a 20 59 6f 75 72 20 6d | 65 6e 75 66 69 6c 65 20 |: Your m|enufile |
|00002340| 63 6f 6e 74 61 69 6e 73 | 20 6e 6f 20 6d 65 6e 75 |contains| no menu|
|00002350| 73 2e 22 00 20 20 80 02 | 00 80 c0 00 00 71 62 5f |s.". ..|.....qb_|
|00002360| 6f 66 66 73 65 74 3d 2d | 34 00 80 0b 20 71 75 69 |offset=-|4... qui|
|00002370| 74 5f 62 75 74 74 6f 6e | 5f 62 20 3a 20 71 62 5f |t_button|_b : qb_|
|00002380| 6f 66 66 73 65 74 3d 30 | 20 3a 20 80 c0 00 00 3b |offset=0| : ....;|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 |---.; | |
|000023e0| 20 20 20 20 20 20 4d 20 | 45 20 4e 20 55 20 20 20 | M |E N U |
|000023f0| 20 44 20 45 20 46 20 49 | 20 4e 20 49 20 54 20 49 | D E F I| N I T I|
|00002400| 20 4f 20 4e 00 00 80 2c | 20 c3 02 20 31 00 c4 07 | O N...,| .. 1...|
|00002410| 20 32 2c 31 00 c4 01 20 | 23 57 31 2c 23 50 52 4f | 2,1... |#W1,#PRO|
|00002420| 4a 45 43 54 2c 22 50 72 | 6f 6a 65 63 74 22 00 20 |JECT,"Pr|oject". |
|00002430| 20 c4 03 20 23 57 31 2c | 30 2c 23 50 52 4f 4a 45 | .. #W1,|0,#PROJE|
|00002440| 43 54 2c 23 50 4f 53 2c | 20 20 20 20 20 22 50 6f |CT,#POS,| "Po|
|00002450| 73 69 74 69 6f 6e 20 20 | 20 20 20 20 22 2c 22 70 |sition | ","p|
|00002460| 22 00 20 20 c4 03 20 23 | 57 31 2c 30 2c 23 50 52 |". .. #|W1,0,#PR|
|00002470| 4f 4a 45 43 54 2c 23 53 | 41 56 45 50 4f 53 2c 20 |OJECT,#S|AVEPOS, |
|00002480| 22 53 61 76 65 20 50 6f | 73 20 20 20 20 20 20 22 |"Save Po|s "|
|00002490| 2c 22 73 22 00 20 20 c4 | 03 20 23 57 31 2c 30 2c |,"s". .|. #W1,0,|
|000024a0| 23 50 52 4f 4a 45 43 54 | 2c 23 52 45 53 54 41 52 |#PROJECT|,#RESTAR|
|000024b0| 54 2c 20 22 52 65 73 74 | 61 72 74 20 20 20 20 20 |T, "Rest|art |
|000024c0| 20 20 22 2c 22 72 22 00 | 20 20 c4 03 20 23 57 31 | ","r".| .. #W1|
|000024d0| 2c 30 2c 23 50 52 4f 4a | 45 43 54 2c 23 4f 50 45 |,0,#PROJ|ECT,#OPE|
|000024e0| 4e 41 4c 4c 2c 20 22 4f | 70 65 6e 20 20 41 6c 6c |NALL, "O|pen All|
|000024f0| 20 20 20 20 20 22 2c 22 | 6f 22 00 20 20 c4 03 20 | ","|o". .. |
|00002500| 23 57 31 2c 30 2c 23 50 | 52 4f 4a 45 43 54 2c 23 |#W1,0,#P|ROJECT,#|
|00002510| 43 4c 4f 53 45 41 4c 4c | 2c 22 43 6c 6f 73 65 20 |CLOSEALL|,"Close |
|00002520| 41 6c 6c 20 20 20 20 20 | 22 2c 22 63 22 00 20 20 |All |","c". |
|00002530| c4 03 20 23 57 31 2c 30 | 2c 23 50 52 4f 4a 45 43 |.. #W1,0|,#PROJEC|
|00002540| 54 2c 23 51 55 49 54 2c | 20 20 20 20 22 51 75 69 |T,#QUIT,| "Qui|
|00002550| 74 20 20 20 20 20 20 20 | 20 20 20 22 2c 22 71 22 |t | ","q"|
|00002560| 00 80 2c 20 c3 02 20 30 | 00 3b 57 69 6e 64 6f 77 |.., .. 0|.;Window|
|00002570| 46 6f 6e 74 20 30 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |Font 0..|;-------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.; |
|000025c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025d0| 20 20 20 4d 20 45 20 4e | 20 55 20 20 20 43 20 52 | M E N| U C R|
|000025e0| 20 45 20 41 20 54 20 45 | 00 00 2e 6d 65 6e 75 63 | E A T E|...menuc|
|000025f0| 72 65 61 74 65 00 00 3b | 20 20 53 45 54 20 57 49 |reate..;| SET WI|
|00002600| 4e 44 4f 57 20 57 49 44 | 54 48 20 41 4e 44 20 43 |NDOW WID|TH AND C|
|00002610| 55 54 20 4e 55 4d 42 45 | 52 20 4f 46 20 42 55 54 |UT NUMBE|R OF BUT|
|00002620| 54 4f 4e 53 20 49 46 20 | 4e 45 43 43 45 53 53 41 |TONS IF |NECCESSA|
|00002630| 52 59 00 00 62 68 3d 62 | 75 74 74 6f 6e 5f 68 65 |RY..bh=b|utton_he|
|00002640| 69 67 68 74 00 62 77 3d | 62 75 74 74 6f 6e 5f 77 |ight.bw=|button_w|
|00002650| 69 64 74 68 00 00 6c 61 | 72 67 66 65 6e 3d 62 75 |idth..la|rgfen=bu|
|00002660| 74 74 6f 6e 5f 77 69 64 | 74 68 2a 6e 75 6d 62 65 |tton_wid|th*numbe|
|00002670| 72 5f 6f 66 5f 6d 65 6e | 75 73 2b 35 2b 71 62 5f |r_of_men|us+5+qb_|
|00002680| 6f 66 66 73 65 74 00 80 | 0b 20 70 6f 73 78 2b 6c |offset..|. posx+l|
|00002690| 61 72 67 66 65 6e 3e e0 | 81 00 20 20 70 6f 73 78 |argfen>.|.. posx|
|000026a0| 3d 37 00 20 20 80 0b 20 | 37 2b 6c 61 72 67 66 65 |=7. .. |7+largfe|
|000026b0| 6e 3e e0 81 00 20 20 20 | 20 b5 8d 20 62 62 6d 24 |n>... | .. bbm$|
|000026c0| 2c 22 57 61 72 6e 69 6e | 67 3a 20 54 6f 6f 20 6c |,"Warnin|g: Too l|
|000026d0| 61 72 67 65 20 6d 65 6e | 75 73 2e 22 2b 65 6e 24 |arge men|us."+en$|
|000026e0| 2b 22 43 75 74 74 69 6e | 67 20 6e 75 6d 62 65 72 |+"Cuttin|g number|
|000026f0| 20 6f 66 20 4d 65 6e 75 | 73 2e 22 2c 22 49 20 73 | of Menu|s.","I s|
|00002700| 65 65 22 00 20 20 20 20 | 6e 75 6d 62 65 72 5f 6f |ee". |number_o|
|00002710| 66 5f 6d 65 6e 75 73 3d | 28 e0 81 2d 37 29 2f 62 |f_menus=|(..-7)/b|
|00002720| 75 74 74 6f 6e 5f 77 69 | 64 74 68 00 20 20 20 20 |utton_wi|dth. |
|00002730| 6c 61 72 67 66 65 6e 3d | 62 75 74 74 6f 6e 5f 77 |largfen=|button_w|
|00002740| 69 64 74 68 2a 6e 75 6d | 62 65 72 5f 6f 66 5f 6d |idth*num|ber_of_m|
|00002750| 65 6e 75 73 2b 35 2b 71 | 62 5f 6f 66 66 73 65 74 |enus+5+q|b_offset|
|00002760| 00 20 20 80 02 20 80 0b | 00 80 02 20 80 0b 00 00 |. .. ..|... ....|
|00002770| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00002780| 20 20 20 20 53 45 54 20 | 42 55 54 54 4f 4e 53 00 | SET |BUTTONS.|
|00002790| 00 62 75 74 74 6f 6e 5f | 79 6f 66 66 3d 2d 33 2d |.button_|yoff=-3-|
|000027a0| 20 53 63 72 65 65 6e 46 | 6f 6e 74 5f 48 65 69 67 | ScreenF|ont_Heig|
|000027b0| 68 74 2e 62 00 00 3b 47 | 54 54 61 67 73 20 24 38 |ht.b..;G|TTags $8|
|000027c0| 30 30 38 30 30 31 31 2c | 33 00 80 0b 20 71 75 69 |0080011,|3... qui|
|000027d0| 74 5f 62 75 74 74 6f 6e | 5f 62 00 20 20 c6 82 20 |t_button|_b. .. |
|000027e0| 30 2c 30 2c 2d 34 2c 62 | 75 74 74 6f 6e 5f 79 6f |0,0,-4,b|utton_yo|
|000027f0| 66 66 2c 35 2c 62 68 2c | 22 22 2c 31 36 00 80 c0 |ff,5,bh,|"",16...|
|00002800| 00 62 77 5f 6f 66 66 20 | 3d 20 30 00 80 16 20 69 |.bw_off |= 0... i|
|00002810| 3d 31 20 80 18 20 6e 75 | 6d 62 65 72 5f 6f 66 5f |=1 .. nu|mber_of_|
|00002820| 6d 65 6e 75 73 00 20 20 | c6 82 20 30 2c 69 2c 62 |menus. |.. 0,i,b|
|00002830| 77 5f 6f 66 66 2b 31 2b | 71 62 5f 6f 66 66 73 65 |w_off+1+|qb_offse|
|00002840| 74 2c 62 75 74 74 6f 6e | 5f 79 6f 66 66 2c 62 77 |t,button|_yoff,bw|
|00002850| 2c 62 68 2c 74 69 74 72 | 65 24 28 69 2c 31 29 2c |,bh,titr|e$(i,1),|
|00002860| 31 36 00 20 20 c6 9c 20 | 30 2c 69 2c 80 c5 00 00 |16. .. |0,i,....|
|00002870| 20 20 62 68 5f 6f 66 66 | 20 3d 20 30 00 20 20 80 | bh_off| = 0. .|
|00002880| 16 20 6a 3d 32 20 80 18 | 20 6d 65 6e 75 5f 69 74 |. j=2 ..| menu_it|
|00002890| 65 6d 73 28 69 29 00 20 | 20 20 20 62 75 74 74 6f |ems(i). | butto|
|000028a0| 6e 5f 74 65 78 74 24 3d | 74 69 74 72 65 24 28 69 |n_text$=|titre$(i|
|000028b0| 2c 6a 29 20 20 20 20 20 | 20 3b 49 46 20 59 4f 55 |,j) | ;IF YOU|
|000028c0| 20 55 53 45 20 74 69 74 | 72 65 24 28 69 2c 6a 29 | USE tit|re$(i,j)|
|000028d0| 20 44 49 52 45 43 54 4c | 59 00 20 20 20 20 20 20 | DIRECTL|Y. |
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 49 4e 20 | | ;IN |
|00002900| 47 54 42 55 54 54 4f 4e | 2c 20 50 52 4f 47 52 41 |GTBUTTON|, PROGRA|
|00002910| 4d 20 57 49 4c 4c 20 43 | 52 41 53 48 21 21 00 20 |M WILL C|RASH!!. |
|00002920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002940| 20 3b 49 54 27 53 20 41 | 20 4d 59 53 54 45 52 59 | ;IT'S A| MYSTERY|
|00002950| 00 20 20 20 20 c6 82 20 | 69 2c 6a 2c 2d 33 2c 62 |. .. |i,j,-3,b|
|00002960| 68 5f 6f 66 66 2b 62 75 | 74 74 6f 6e 5f 79 6f 66 |h_off+bu|tton_yof|
|00002970| 66 2c 62 77 2c 62 68 2c | 62 75 74 74 6f 6e 5f 74 |f,bw,bh,|button_t|
|00002980| 65 78 74 24 2c 31 36 00 | 20 20 20 20 80 0b 20 73 |ext$,16.| .. s|
|00002990| 65 71 75 65 6e 63 65 24 | 28 69 2c 6a 29 3d 22 5c |equence$|(i,j)="\|
|000029a0| 74 69 74 6c 65 22 20 3a | 20 c6 9c 20 69 2c 6a 2c |title" :| .. i,j,|
|000029b0| 80 c5 20 3a 20 80 c0 00 | 20 20 20 20 62 68 5f 6f |.. : ...| bh_o|
|000029c0| 66 66 20 3d 20 62 68 5f | 6f 66 66 2b 62 68 00 00 |ff = bh_|off+bh..|
|000029d0| 20 20 80 17 00 20 20 62 | 77 5f 6f 66 66 20 3d 20 | ... b|w_off = |
|000029e0| 62 77 5f 6f 66 66 2b 62 | 77 00 80 17 00 00 00 c5 |bw_off+b|w.......|
|000029f0| 01 20 23 57 31 2c 70 6f | 73 78 2c 70 6f 73 79 2c |. #W1,po|sx,posy,|
|00002a00| 6c 61 72 67 66 65 6e 2c | 62 75 74 74 6f 6e 5f 68 |largfen,|button_h|
|00002a10| 65 69 67 68 74 2c 24 31 | 38 30 30 2c 22 22 2c 31 |eight,$1|800,"",1|
|00002a20| 2c 32 00 c6 8e 20 30 2c | 23 57 31 00 c4 02 20 23 |,2... 0,|#W1... #|
|00002a30| 57 31 00 00 80 16 20 6d | 65 6e 75 3d 31 20 80 18 |W1.... m|enu=1 ..|
|00002a40| 20 6e 75 6d 62 65 72 5f | 6f 66 5f 6d 65 6e 75 73 | number_|of_menus|
|00002a50| 00 20 20 80 0b 20 6d 65 | 6e 75 5f 74 6f 5f 62 65 |. .. me|nu_to_be|
|00002a60| 5f 6f 70 65 6e 5f 62 28 | 6d 65 6e 75 29 00 20 20 |_open_b(|menu). |
|00002a70| 20 20 6f 70 65 6e 5f 6d | 65 6e 75 7b 6d 65 6e 75 | open_m|enu{menu|
|00002a80| 7d 00 20 20 80 c0 00 80 | 17 00 00 d2 02 00 00 3b |}. ....|.......;|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 3b 20 |--------|-----.; |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ae0| 20 20 20 20 45 20 56 20 | 45 20 4e 20 54 20 4c 20 | E V |E N T L |
|00002af0| 4f 20 4f 20 50 00 3b 00 | 3b 00 3b 00 3b 00 00 00 |O O P.;.|;.;.;...|
|00002b00| 00 65 78 65 63 75 74 65 | 5f 62 75 74 74 6f 6e 5f |.execute|_button_|
|00002b10| 62 20 3d 20 bc 0f 00 65 | 78 69 74 5f 62 20 20 20 |b = ...e|xit_b |
|00002b20| 20 20 20 20 20 20 20 20 | 3d 20 bc 0f 00 00 80 13 | |= ......|
|00002b30| 20 42 75 74 74 6f 6e 42 | 61 72 2d 65 76 65 6e 74 | ButtonB|ar-event|
|00002b40| 6c 6f 6f 70 2e 62 62 32 | 00 00 2e 65 78 69 74 00 |loop.bb2|...exit.|
|00002b50| 00 80 16 20 6d 65 6e 75 | 3d 31 20 80 18 20 6e 75 |... menu|=1 .. nu|
|00002b60| 6d 62 65 72 5f 6f 66 5f | 6d 65 6e 75 73 00 20 20 |mber_of_|menus. |
|00002b70| 80 0b 20 6d 65 6e 75 5f | 6f 70 65 6e 5f 62 28 6d |.. menu_|open_b(m|
|00002b80| 65 6e 75 29 00 20 20 20 | 20 c6 9f 20 6d 65 6e 75 |enu). | .. menu|
|00002b90| 00 20 20 20 20 80 2b 20 | c5 01 20 6d 65 6e 75 00 |. .+ |.. menu.|
|00002ba0| 20 20 80 02 20 80 0b 00 | 20 20 80 2b 20 c6 81 20 | .. ...| .+ .. |
|00002bb0| 6d 65 6e 75 00 80 17 00 | c6 9f 20 23 57 31 00 80 |menu....|.. #W1..|
|00002bc0| 2b 20 c5 01 20 23 57 31 | 00 80 2b 20 c6 81 20 23 |+ .. #W1|..+ .. #|
|00002bd0| 57 31 00 00 80 0b 20 72 | 65 73 74 61 72 74 5f 62 |W1.... r|estart_b|
|00002be0| 20 3a 20 80 05 20 72 65 | 73 74 61 72 74 20 3a 20 | : .. re|start : |
|00002bf0| 80 c0 00 be 03 20 6c 6f | 63 6b 5f 6e 61 6d 65 24 |..... lo|ck_name$|
|00002c00| 00 00 00 00 | |.... | |
+--------+-------------------------+-------------------------+--------+--------+
